home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / FILESYS.ZIP / FILESYS.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1995-04-24  |  7KB  |  358 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Date     DATE001
  22.     Integer  INTEGER001
  23.     Integer  INTEGER002
  24.     Integer  INTEGER003
  25.     Integer  INTEGER004
  26.     Integer  INTEGER005
  27.     Integer  INTEGER006
  28.     Integer  INTEGER007
  29.     Integer  INTEGER008
  30.     Integer  INTEGER009
  31.     Integer  INTEGER010
  32.     Integer  INTEGER011
  33.     Integer  INTEGER012
  34.     String   STRING001
  35.     String   STRING002
  36.     String   STRING003
  37.     String   STRING004
  38.     String   STRING005
  39.     String   STRING006
  40.     String   STRING007
  41.     String   STRING008
  42.     String   STRING009
  43.     String   STRING010
  44.     String   STRING011
  45.     String   STRING012
  46.     String   STRING013
  47.     String   STRING014
  48.     String   STRING015
  49.     String   STRING016
  50.     String   STRING017
  51.     String   STRING018
  52.     String   STRING019
  53.     String   STRING020
  54.     String   STRING021
  55.     String   STRING022
  56.     String   STRING023
  57.     String   STRING024
  58.     String   STRING025
  59.     String   STRING026
  60.     String   STRING027
  61.     String   STRING028
  62.     String   STRING029
  63.     String   STRING030
  64.     String   STRING031
  65.     String   STRING032
  66.     String   STRING033
  67.     String   STRING034
  68.     String   STRING035
  69.     String   STRING036
  70.     String   STRING037
  71.     String   STRING038
  72.     String   STRING039
  73.  
  74. ;------------------------------------------------------------------------------
  75.  
  76.     INTEGER001 = CurConf()
  77.     STRING004 = PcbNode()
  78.     STRING038 = "R"
  79.     DATE001 = 0
  80.     BOOLEAN001 = 0
  81.     BOOLEAN002 = 0
  82.     STRING011 = "SYSOP"
  83.     STRING012 = "USER"
  84.     STRING014 = "DELETE"
  85.     STRING013 = "NUKE"
  86.     STRING039 = PPEPath() + PPEName() + ".MSG"
  87.     STRING034 = "@X0F∙@X03─@X0B──@X03─"
  88.     STRING006 = PPEPath() + "FILESYS.CFG"
  89.     STRING005 = PPEPath() + "FILESYS." + STRING004
  90.     STRING003 = "                               | "
  91.     If (STRING004 == 0) Then
  92.         STRING004 = 1
  93.     Endif
  94.     If (FileInf(STRING006, 4) > 0) Then
  95.         FOpen 1, STRING006, 0, 2
  96.         FGet 1, STRING009
  97.         FGet 1, STRING010
  98.         FGet 1, INTEGER002
  99.         FGet 1, STRING021
  100.         FGet 1, STRING022
  101.         FGet 1, STRING017
  102.         FGet 1, INTEGER007
  103.         FGet 1, STRING018
  104.         FGet 1, INTEGER008
  105.         FGet 1, STRING019
  106.         FGet 1, INTEGER011
  107.         FGet 1, STRING020
  108.         FGet 1, INTEGER009
  109.         FClose 1
  110.         Goto LABEL001
  111.     Else
  112.         PrintLn "@X0CBOOMLAB FILE SYSOP PPE ERROR - FILESYS.CFG NOT FOUND!"
  113.         Goto LABEL007
  114.     Endif
  115.     :LABEL001
  116.     If (FileInf(STRING005, 4) > 0) Then
  117.         Goto LABEL002
  118.     Else
  119.         Goto LABEL007
  120.     Endif
  121.     :LABEL002
  122.     FOpen 1, STRING005, 0, 2
  123.     FGet 1, STRING033
  124.     FGet 1, STRING023
  125.     FGet 1, STRING024
  126.     FGet 1, STRING025
  127.     FGet 1, STRING026
  128.     FGet 1, STRING027
  129.     FGet 1, STRING028
  130.     FGet 1, STRING029
  131.     FGet 1, STRING030
  132.     FGet 1, STRING032
  133.     FGet 1, STRING031
  134.     FClose 1
  135.     If (STRING023 == "") Then
  136.         Goto LABEL004
  137.     Endif
  138.     If (STRING028 == "") Then
  139.         STRING028 = U_Name()
  140.     Endif
  141.     If (STRING010 == "") Then
  142.         STRING010 = "SYSOP"
  143.     Endif
  144.     INTEGER003 = 0
  145.     INTEGER004 = 0
  146.     INTEGER006 = 0
  147.     INTEGER005 = 0
  148.     INTEGER012 = 0
  149.     STRING008 = STRING029
  150.     STRING007 = STRING017
  151.     INTEGER010 = INTEGER007
  152.     STRING002 = STRING029
  153.     Gosub LABEL005
  154.     STRING008 = STRING030
  155.     STRING007 = STRING018
  156.     INTEGER010 = INTEGER008
  157.     STRING002 = STRING030
  158.     Gosub LABEL005
  159.     STRING008 = STRING031
  160.     STRING007 = STRING019
  161.     INTEGER010 = INTEGER011
  162.     STRING002 = STRING031
  163.     Gosub LABEL005
  164.     STRING008 = STRING032
  165.     STRING007 = STRING020
  166.     INTEGER010 = INTEGER009
  167.     STRING002 = STRING032
  168.     Gosub LABEL005
  169.     STRING015 = "NONE"
  170.     If (INTEGER003 == 1) Then
  171.         STRING015 = "SYSOP NOTIFIED"
  172.     Endif
  173.     If (INTEGER004 == 1) Then
  174.         STRING015 = STRING028 + " NOTIFIED"
  175.     Endif
  176.     If ((INTEGER003 == 1) && (INTEGER004 == 1)) Then
  177.         STRING015 = "SYSOP & USER NOTIFIED"
  178.     Endif
  179.     If (INTEGER005 == 1) Then
  180.         STRING015 = "@X8FFILE WAS DELETED!"
  181.     Endif
  182.     If (INTEGER006 == 1) Then
  183.         If (INTEGER012 > 0) Then
  184.             STRING016 = "CREDIT LOST x " + I2S(INTEGER012, 10)
  185.             STRING015 = "@X8FFILE NUKED! - " + STRING016
  186.             Goto LABEL003
  187.         Endif
  188.         STRING016 = "THIS IS A WARNING!"
  189.         STRING015 = "@X8FFILE WAS NUKED!"
  190.     Endif
  191.     :LABEL003
  192.     PrintLn STRING009 + " FAILED!"
  193.     If (STRING015 <> "NONE") Then
  194.         PrintLn STRING009 + "[ACTION TAKEN: @X0F" + STRING015 + STRING009 + "]"
  195.     Endif
  196.     STRING037 = STRING023 + " [FAILED]"
  197.     If (INTEGER003 == 1) Then
  198.         STRING035 = STRING010
  199.         STRING036 = STRING033
  200.         Gosub LABEL006
  201.     Endif
  202.     If (INTEGER004 == 1) Then
  203.         STRING035 = STRING028
  204.         STRING036 = STRING033
  205.         Gosub LABEL006
  206.     Endif
  207.     If ((INTEGER005 == 1) || (INTEGER006 == 1)) Then
  208.         If (FileInf(STRING024, 4) > 0) Then
  209.             Delete STRING024
  210.         Endif
  211.         If (FileInf(STRING025, 4) > 0) Then
  212.             Delete STRING025
  213.         Endif
  214.     Endif
  215.     If (INTEGER006 == 1) Then
  216.         If (STRING021 == "YES") Then
  217.             FOpen 1, STRING025, 1, 2
  218.             FPutLn 1, Left(STRING023 + "            ", 12) + "  *NUKED*  DELETED   @X04┌───@X0C▄▒▓██▄@X04─────── ─·· ·"
  219.             FPutLn 1, STRING003 + "@X04│@X0C  ░▀████▀█   " + STRING033
  220.             FPutLn 1, STRING003 + "@X04│@X0C  ▀▄▄▀▀▄▄▀   ■ FILE WAS NUKED!!!"
  221.             FPutLn 1, STRING003 + "@X04│@X0C    ▀▀▀▀     ■ " + STRING016
  222.             FPutLn 1, STRING003 + "@X04└────@X0C ▀▀ @X04──── ──── ─ ∙·"
  223.             FPutLn 1, STRING003 + "@X0C■ " + STRING001
  224.             FPutLn 1, STRING003 + "Uploaded By: @X0F" + STRING028
  225.             FClose 1
  226.         Endif
  227.         If (STRING022 == "YES") Then
  228.             FOpen 1, STRING024, 1, 2
  229.             FPutLn 1, "NUKED!"
  230.             FClose 1
  231.         Endif
  232.     Endif
  233.     :LABEL004
  234.     Delete STRING005
  235.     Goto LABEL007
  236.     :LABEL005
  237.     If (((STRING008 <> "PASSED") && (STRING008 <> "OFF")) && (STRING008 <> "NO FILES!")) Then
  238.         If (InStr(STRING007, STRING011) <> 0) Then
  239.             INTEGER003 = 1
  240.         Endif
  241.         If (InStr(STRING007, STRING012) <> 0) Then
  242.             INTEGER004 = 1
  243.         Endif
  244.         If (InStr(STRING007, STRING014) <> 0) Then
  245.             INTEGER005 = 1
  246.         Endif
  247.         If (InStr(STRING007, STRING013) <> 0) Then
  248.             INTEGER006 = 1
  249.             If (INTEGER012 < INTEGER010) Then
  250.                 INTEGER012 = INTEGER010
  251.                 STRING001 = STRING002
  252.             Endif
  253.         Endif
  254.     Endif
  255.     Return
  256.     :LABEL006
  257.     FOpen 2, STRING039, 1, 2
  258.     If (INTEGER002 == 1) Then
  259.         FPutLn 2, "@X0C THIS MESSAGE CONCERNS THE FOLLOWING FILE:"
  260.         FPutLn 2, "@X04┌───@X0C▄▒▓██▄@X04─────────────────────────────── ─·· ·"
  261.         FPutLn 2, "@X04│@X0C  ░▀████▀█     Filename: @X0F" + STRING023
  262.         FPutLn 2, "@X04│@X0C  ▀▄▄▀▀▄▄▀     Filesize: @X0F" + STRING026
  263.         FPutLn 2, "@X04│@X0C    ▀▀▀▀       Uploaded On: @X0F" + STRING027
  264.         FPutLn 2, "@X04└────@X0C ▀▀ @X04────┐  @X0CUploaded By: @X0F" + STRING028
  265.         FPutLn 2, "@X04             │ "
  266.         FPutLn 2, "@X04             │  @X0CCRC Test: @X0F" + STRING029
  267.         FPutLn 2, "@X04             │  @X0CAge Test: @X0F" + STRING030
  268.         FPutLn 2, "@X04             │  @X0CDupe Check: @X0F" + STRING031
  269.         FPutLn 2, "@X04             │  @X0CVirus Scan: @X0F" + STRING032
  270.         FPutLn 2, "@X04             │ "
  271.         FPutLn 2, "@X04             │  @X0CAction Taken: @X0F" + STRING015
  272.         FPutLn 2, "@X04             └────────────────────────────── ──── ─ ∙·"
  273.         FPutLn 2, ""
  274.     Else
  275.         FPutLn 2, STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + "@X0F∙"
  276.         FPutLn 2, "@X03│                                            │"
  277.         FPutLn 2, "@X0B│   T@X03HI@X0BS M@X03ESS@X0BAG@X03E @X0BCO@X03N@X0BCE@X03R@X0BN@X03S F@X0BOL@X03LO@X0BWI@X03N@X0BG U@X03P@X0BL@X03OA@X0BD   │"
  278.         FPutLn 2, "@X03│                                            │"
  279.         FPutLn 2, STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + STRING034 + "@X0F∙"
  280.         FPutLn 2, ""
  281.         FPutLn 2, " @X03F@X0BI@X03L@X0BE N@X03A@X0BM@X03E @X08.... @X0F" + STRING023
  282.         FPutLn 2, " @X03F@X0BILE @X03SI@X0BZE @X08.... @X0F" + STRING026
  283.         FPutLn 2, " @X0BWH@X03EN @X0BS@X03EN@X0BT@X08 .... @X0F" + STRING027
  284.         FPutLn 2, " @X03UP@X0BLO@X03A@X0BDE@X03D@X0B B@X03Y@X08 .. @X0F" + STRING028
  285.         FPutLn 2, ""
  286.         FPutLn 2, " @X03C@X0BRC @X03T@X0BE@X03ST@X08 ..... @X0F" + STRING029
  287.         FPutLn 2, " @X0BAG@X03E @X0BT@X03ES@X0BT@X08 ..... @X0F" + STRING030
  288.         FPutLn 2, " @X03D@X0BUP@X03E C@X0BHE@X03C@X0BK@X08 ... @X0F" + STRING031
  289.         FPutLn 2, " @X0BV@X03IR@X0BU@X03S S@X0BCA@X03N@X08 ... @X0F" + STRING032
  290.         FPutLn 2, ""
  291.         FPutLn 2, " @X03AC@X0BT@X03I@X0BON @X03TA@X0BK@X03E@X0BN @X08... @X0F" + STRING015
  292.     Endif
  293.     FClose 2
  294.     Message INTEGER001, STRING035, STRING036, STRING037, STRING038, DATE001, BOOLEAN001, BOOLEAN002, STRING039
  295.     Delete STRING039
  296.     Return
  297.     :LABEL007
  298.     FClose 1
  299.     End
  300.  
  301. ;------------------------------------------------------------------------------
  302. ;
  303. ; Usage report (before postprocessing)
  304. ;
  305. ; ■ Statements used :
  306. ;
  307. ;    1       End
  308. ;    38      Goto 
  309. ;    59      Let 
  310. ;    3       PrintLn 
  311. ;    28      If 
  312. ;    5       FOpen 
  313. ;    6       FClose 
  314. ;    24      FGet 
  315. ;    40      FPutLn 
  316. ;    4       Delete 
  317. ;    6       Gosub 
  318. ;    2       Return
  319. ;    1       Message 
  320. ;
  321. ;
  322. ; ■ Functions used :
  323. ;
  324. ;    62      +
  325. ;    18      ==
  326. ;    8       <>
  327. ;    1       <
  328. ;    5       >
  329. ;    28      !
  330. ;    3       &&
  331. ;    1       ||
  332. ;    1       Left()
  333. ;    4       InStr()
  334. ;    1       U_Name()
  335. ;    1       CurConf()
  336. ;    3       PPEPath()
  337. ;    1       PcbNode()
  338. ;    1       I2S()
  339. ;    4       FileInf()
  340. ;    1       PPEName()
  341. ;
  342. ;------------------------------------------------------------------------------
  343. ;
  344. ; Analysis flags : No flag
  345. ;
  346. ;------------------------------------------------------------------------------
  347. ;
  348. ; Postprocessing report
  349. ;
  350. ;    0       For/Next
  351. ;    0       While/EndWhile
  352. ;    28      If/Then or If/Then/Else
  353. ;    0       Select Case
  354. ;
  355. ;------------------------------------------------------------------------------
  356. ;                 AEGiS Corp - Break the routines, code against the machines!
  357. ;------------------------------------------------------------------------------
  358.